Attaching package: 'deal'
The following object(s) are masked from package:bnlearn :
modelstring, nodes, score
> bnlearn::node.ordering(res) [1] "A" "C" "F" "B" "D" "E" # create an empty network object. > net = deal::network(learning.test[, node.ordering(res)]) # convert the bn object via its string representation. > net = deal::as.network(bnlearn::modelstring(res), net) # the network is the same, modulo some differences due to the # partial ordering of the nodes. > deal::modelstring(net) [1] "[A][C][F][B|A][D|A:C][E|F:B]" > bnlearn::modelstring(res) [1] "[A][C][F][B|A][D|A:C][E|B:F]"